Option Explicit
Sub K_Sample008()
    Dim myRng  As Range
    Dim myCell As Range
    Dim myClc  As Collection
    Dim I      As Long
    Set myRng = Worksheets.Add.Cells(1, 1).Resize(10, 10)
    For Each myCell In myRng.Cells
        Randomize
        myCell.Value = Int(Rnd * 150)			'tmƭ
    Next
    MsgBox "{bi歫ˬd"
    Set myClc = New Collection
    For Each myCell In myRng.Cells
        I = myClc.Count
        On Error Resume Next
        myClc.Add Item:=myCell.Value, Key:=CStr(myCell.Value)
        On Error GoTo 0
        If myClc.Count = I Then
            myCell.Interior.ColorIndex = 3
        End If
    Next
    MsgBox "aC⪺xsNOxs"
    Set myClc = Nothing						'
    Set myRng = Nothing
End Sub
